letalidade_Brasil_Italia <- dados_covid %>%
filter(Country=="Brazil"|Country=="Italy",
New_cases>0) %>%
mutate(letalidade_diaria = New_deaths/New_cases*100) %>%
group_by(Country) %>%
summarise(letalidade_media = mean(letalidade_diaria, na.rm=T),
desvio_padrao = sd(letalidade_diaria, na.rm=T ),
Casos_maximo = max(New_cases, na.rm=T),
Obitos_maximo = max(New_deaths, na.rm=T))
letalidade_Brasil_Italia# A tibble: 2 × 5
Country letalidade_media desvio_padrao Casos_maximo Obitos_maximo
<chr> <dbl> <dbl> <int> <int>
1 Brazil 2.01 1.55 1283024 21094
2 Italy 2.44 4.46 1268153 5339